#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
inherit CometCompo_evolution_PM_P_U_view_basic PM_U_Container

#___________________________________________________________________________________________________________________________________________
method CometCompo_evolution_PM_P_U_view_basic constructor {name descr args} {
 this inherited $name $descr

   this set_GDD_id FUI_CometCompo_evolution_PM_P_U_view_basic

   set this(C_txt) [CPool get_a_comet CometText]
   
   this set_L_nested_handle_LM    $this(C_txt)_LM_LP
   this set_L_nested_daughters_LM $this(C_txt)_LM_LP

 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometCompo_evolution_PM_P_U_view_basic [P_L_methodes_set_CometCompo_evolution] {} {}
Methodes_get_LC CometCompo_evolution_PM_P_U_view_basic [P_L_methodes_get_CometCompo_evolution] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
Generate_PM_setters CometCompo_evolution_PM_P_U_view_basic [P_L_methodes_set_CometCompo_evolution_COMET_RE]

#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
method CometCompo_evolution_PM_P_U_view_basic set_LM {LM} {
 set rep [this inherited $LM]
   if {$LM != ""} {$this(C_txt) set_text [[this get_LC] get_name]}
 return $rep
}